home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / dms-gepackt / 11_95 / apd-11-95-2.dms / apd-11-95-2.adf / Amiga_E / Beispiel1.e next >
Text File  |  1995-10-09  |  257b  |  13 lines
  1. DEF pauschale,
  2.   kilometer_Preis=1
  3.  
  4. PROC main()
  5.   pauschale:=50; kilometer_Preis:=1
  6.  
  7.   WriteF('Ein günstiges Angebot:\n')
  8.   WriteF('Zehn Kilometer mit' +
  9.     ' unserem Mietwagen' +
  10.     'kosten Sie nur \d DM.\n',
  11.     pauschale+(10*kilometer_Preis))
  12. ENDPROC 
  13.